
<!--#include file="conn2.asp"-->

<%
				Dim Values,i
					Values=""
					i=1
				set rs=server.createobject("adodb.recordset")
					sql="select * from City where sz_code<>'"&Request.QueryString("state")&"0000' and sz_code like'"&Request.QueryString("state")&"%'"
					rs.open sql,conn2,1,1
					do while not rs.eof
					Values=Values&rs("id")&","&rs("city")&","
					
			  		rs.movenext
					i=i+1
					loop
					rs.close()
					Response.CharSet = "utf-8"
					response.Write(Values)
					set rs=nothing
					set conn2=nothing
				%>